home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / AEPackObject.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  1.8 KB  |  64 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        AEPackObject.a
  3. ;
  4. ;    Contains:    AppleEvents object packing Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1991-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__AEPACKOBJECT__') = 'UNDEFINED' THEN
  19. __AEPACKOBJECT__ SET 1
  20.  
  21.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  22.     include 'AppleEvents.a'
  23.     ENDIF
  24.  
  25. ;  These are the object packing routines.  
  26. ;
  27. ; pascal OSErr CreateOffsetDescriptor(long theOffset, AEDesc *theDescriptor)
  28. ;
  29.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  30.         IMPORT_CFM_FUNCTION CreateOffsetDescriptor
  31.     ENDIF
  32.  
  33. ;
  34. ; pascal OSErr CreateCompDescriptor(DescType comparisonOperator, AEDesc *operand1, AEDesc *operand2, Boolean disposeInputs, AEDesc *theDescriptor)
  35. ;
  36.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  37.         IMPORT_CFM_FUNCTION CreateCompDescriptor
  38.     ENDIF
  39.  
  40. ;
  41. ; pascal OSErr CreateLogicalDescriptor(AEDescList *theLogicalTerms, DescType theLogicOperator, Boolean disposeInputs, AEDesc *theDescriptor)
  42. ;
  43.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  44.         IMPORT_CFM_FUNCTION CreateLogicalDescriptor
  45.     ENDIF
  46.  
  47.  
  48. ;
  49. ; pascal OSErr CreateObjSpecifier(DescType desiredClass, AEDesc *theContainer, DescType keyForm, AEDesc *keyData, Boolean disposeInputs, AEDesc *objSpecifier)
  50. ;
  51.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  52.         IMPORT_CFM_FUNCTION CreateObjSpecifier
  53.     ENDIF
  54.  
  55. ;
  56. ; pascal OSErr CreateRangeDescriptor(AEDesc *rangeStart, AEDesc *rangeStop, Boolean disposeInputs, AEDesc *theDescriptor)
  57. ;
  58.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  59.         IMPORT_CFM_FUNCTION CreateRangeDescriptor
  60.     ENDIF
  61.  
  62.     ENDIF ; __AEPACKOBJECT__ 
  63.  
  64.